(font-show-log): Limit each listing

to 20 items.

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 4f83774308850884b67142a35e74e4108e8a014e..81ee68eb59167105167b4fc65cbe2f9d8e8aab22 100644 (file)
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -1304,7 +1304,16 @@ character)")
        (insert (format "%s: %s\n" (car elt) (cadr elt)))
        (setq elt (nth 2 elt))
        (if (or (vectorp elt) (listp elt))
-           (mapc #'(lambda (x) (insert (format "  %s\n" x))) elt)
+           (let ((limit 20)
+                 (i 0))
+             (catch 'tag
+               (mapc #'(lambda (x)
+                         (setq i (1+ i))
+                         (when (= i 20)
+                           (insert "  ...\n")
+                           (throw 'tag nil))
+                         (insert (format "  %s\n" x)))
+                     elt)))
          (insert (format "  %s\n" elt)))))))